home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4385 / custom_2 / fswitch / fswitch.acb (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  9KB  |  207 lines
  1. 10 REM Font Switcher (C) 1993 Auld Bastid (Big Bum In A Wee Frame Productions)
  2. 100 CLS
  3. 1000 IF
  4. 1010 NEXT
  5. 1020 RETURN
  6. 1030 UNKNOWN OP: 0x3A
  7. 1040 REM save to compiler
  8. 1050 UNKNOWN OP: 0x3A
  9. 1060 MENU
  10. 1070 IF
  11. 1080 LOCATE
  12. 1090 PRINT
  13. 110 PEN
  14. 1100 PRINT
  15. 1110 IF
  16. 1120 VARNAME
  17. 1130 BSAVE
  18. 1140 CLS
  19. 1150 UNKNOWN OP: 0x3A
  20. 1160 REM Save to stos
  21. 1170 UNKNOWN OP: 0x3A
  22. 1180 MENU
  23. 1190 IF
  24. 120 GOSUB
  25. 1200 LOCATE
  26. 1210 PRINT
  27. 1220 PRINT
  28. 1230 IF
  29. 1240 VARNAME
  30. 1250 BSAVE
  31. 1260 CLS
  32. 1270 REM install as a system font
  33. 1280 DREG
  34. 1290 VARNAME
  35. 130 ON
  36. 1300 COPY
  37. 1310 PRINT
  38. 1320 UNKNOWN OP: 0x3A
  39. 1330 REM about fontswitch
  40. 1340 UNKNOWN OP: 0x3A
  41. 1350 WINDOPEN
  42. 1360 HIDE
  43. 1370 PEN
  44. 1380 PEN
  45. 1390 CENTRE
  46. 140 GOTO
  47. 1400 CENTRE
  48. 1410 PRINT
  49. 1420 CENTRE
  50. 1430 CENTRE
  51. 1440 PRINT
  52. 1450 CENTRE
  53. 1460 CENTRE
  54. 1470 CENTRE
  55. 1480 CENTRE
  56. 1490 CENTRE
  57. 150 UNKNOWN OP: 0x3A
  58. 1500 CENTRE
  59. 1510 CENTRE
  60. 1520 PRINT
  61. 1530 CENTRE
  62. 1540 CENTRE
  63. 1550 CENTRE
  64. 1560 CLEAR KEY
  65. 1570 WINDEL
  66. 1580 UNKNOWN OP: 0x3A
  67. 1590 REM STOSSER
  68. 160 REM ABOUT
  69. 1600 UNKNOWN OP: 0x3A
  70. 1610 MENU
  71. 1620 LOCATE
  72. 1630 PRINT
  73. 1640 PRINT
  74. 1650 PRINT
  75. 1660 PRINT
  76. 1670 PRINT
  77. 1680 PRINT
  78. 1690 WINDEL
  79. 170 UNKNOWN OP: 0x3A
  80. 1700 GOTO
  81. 1710 UNKNOWN OP: 0x3A
  82. 1720 REM display font in a window
  83. 1730 UNKNOWN OP: 0x3A
  84. 1740 MENU
  85. 1750 FOR
  86. 1760 QWINDOW
  87. 1770 WINDEL
  88. 1780 UNKNOWN OP: 0x3A
  89. 1790 REM little subbies
  90. 180 VARNAME
  91. 1800 UNKNOWN OP: 0x3A
  92. 1810 VARNAME
  93. 1820 X MOUSE
  94. 1830 CLEAR KEY
  95. 1840 VARNAME
  96. 1850 VARNAME
  97. 1860 CLEAR KEY
  98. 1870 UNKNOWN OP: 0x3A
  99. 1880 REM em menu definition
  100. 1890 UNKNOWN OP: 0x3A
  101. 190 IF
  102. 1900 MENU$
  103. 1910 MENU$
  104. 1920 MENU$
  105. 1930 MENU$
  106. 1940 MENU$
  107. 1950 MENU$
  108. 1960 MENU$
  109. 1970 MENU$
  110. 1980 MENU$
  111. 1990 MENU$
  112. 20 UNKNOWN OP: 0x3A
  113. 200 IF
  114. 2000 MENU$
  115. 2010 MENU$
  116. 2020 FOR
  117. 2030 MENU$
  118. 2040 MENU$
  119. 2050 MENU$
  120. 2060 RETURN
  121. 210 GOTO
  122. 220 UNKNOWN OP: 0x3A
  123. 230 REM INSTALL
  124. 240 UNKNOWN OP: 0x3A
  125. 250 VARNAME
  126. 260 IF
  127. 270 IF
  128. 280 IF
  129. 290 GOTO
  130. 30 DIM
  131. 300 UNKNOWN OP: 0x3A
  132. 310 REM FILE
  133. 320 UNKNOWN OP: 0x3A
  134. 330 VARNAME
  135. 340 IF
  136. 350 IF
  137. 360 IF
  138. 370 GOTO
  139. 380 UNKNOWN OP: 0x3A
  140. 390 REM VIEW
  141. 40 IF
  142. 400 UNKNOWN OP: 0x3A
  143. 410 VARNAME
  144. 420 IF
  145. 430 IF
  146. 440 GOSUB
  147. 450 IF
  148. 460 CLS
  149. 470 GOTO
  150. 480 UNKNOWN OP: 0x3A
  151. 490 REM QUIT the program
  152. 50 VARNAME
  153. 500 UNKNOWN OP: 0x3A
  154. 510 MENU
  155. 520 PEN
  156. 530 GOSUB
  157. 540 IF
  158. 550 ERASE
  159. 560 DEFAULT
  160. 570 UNKNOWN OP: 0x3A
  161. 580 REM load MBK file
  162. 590 UNKNOWN OP: 0x3A
  163. 60 ERASE
  164. 600 VARNAME
  165. 610 IF
  166. 620 LOAD
  167. 630 VARNAME
  168. 640 IF
  169. 650 IF
  170. 660 GOSUB
  171. 670 FOR
  172. 680 FOR
  173. 690 NEXT
  174. 70 NEXT
  175. 700 IF
  176. 710 RETURN
  177. 720 UNKNOWN OP: 0x3A
  178. 730 REM load CR? file
  179. 740 UNKNOWN OP: 0x3A
  180. 750 VARNAME
  181. 760 IF
  182. 770 OPEN IN
  183. 780 REM f L>charlen(5) then bell : cls : pen C2 : curs off : locate 0,10 : centre "Error: This font is too large to use at the moment!" : print : print : centre "Press Something To Continue." : gosub 8920 : goto 40
  184. 790 CHARCOPY
  185. 80 GOSUB
  186. 800 BLOAD
  187. 810 VARNAME
  188. 820 IF
  189. 830 GOSUB
  190. 840 FOR
  191. 850 FOR
  192. 860 NEXT
  193. 870 IF
  194. 880 RETURN
  195. 890 UNKNOWN OP: 0x3A
  196. 90 GOSUB
  197. 900 REM Display information
  198. 910 UNKNOWN OP: 0x3A
  199. 920 IF
  200. 930 VARNAME
  201. 940 LOCATE
  202. 950 PRINT
  203. 960 PRINT
  204. 970 PRINT
  205. 980 FOR
  206. 990 DREG
  207.